{"text_format":"1","workbook":"xlsx","n_sheets":1,"sheets":["PBD"],"not_rendered":{"charts":0,"images":2,"macros":1,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"PBD","index":0,"n_rows":30,"n_cols":11,"rows_kept":30,"cut":false,"hidden":false,"merged":[[24,8,24,17],[27,8,27,17]]}
["P_Grad","A/Q/SV","NOME","PBD","PAD","PED","MENÇÃO",null,null,null,"ABRIR FORMULÁRIO"]
["2º Sgt","MB","teste 3 female 21dez22","S","S","N","B"]
["1º Ten ","MNT COM","TESTE 2FEM MSG BOX PBD","S","S","S","MB"]
["2º Ten ","CAV","teste  bloqueio text box 03jan23-01h19m","S","S","S","E"]
["S Ten ","SAU","TESTE BT COPIAR MSGBOX1","S","S","S","E"]
["Alu","COM","portela1","S","S","S","MB"]
["Alu","COM","portela2","S","S","S","MB"]
["Cb EP","COM","portela3","S","S","S","MB"]
["Cb EP","COM","portela4","S","S","S","MB"]
["Cb EP","COM","portela5","S","S","S","MB"]
["Cb EP","COM","portela6","S","S","S","MB"]
["Cb EP","COM","portela7","S","S","S","MB"]
["Cb EP","COM","portela8","S","S","S","MB"]
["Cb EP","COM","portela9","S","S","S","MB"]
["Cb EP","COM","portela10","S","S","S","MB"]
[]
[null,null,null,null,null,null,null,null,"- O objetivo deste cód Vba é: ao selecionar na list box 1 registro ou vários em seguida excluir a(s) linha(s) da planilha pelo botão na list box."]
[]
[]
[null,null,null,null,null,null,null,null,"Problema:"]
[null,null,null,null,null,null,null,null,"- Ao executar o comando do botão excluir (command button), o registro selecionado não é excluído, o que ocorre é a exclusão de registro em outra linha acima."]
[]
[]
[null,null,null,null,null,null,null,null,"Configurações:"]
[null,null,null,null,null,null,null,null,"1) - BOTÃO:\n\tNome: BtExRegPbdM\n\tCaption: Excluir\n\nPROPRIEDADES:\n\tBackStyle: 1-fmBackStyleOpaque\n\tControlTipText: Exclui registro da Nota para BI\n\tFonte: Tahoma 11 - Negrito\n\tPicturePosition: 7-fmPicturePositionAboveCenter\n\tListStyle:1"]
[]
[null,null,null,null,null,null,null,null,"CÓDIGOS:"]
[null,null,null,null,null,null,null,null,"1) CONFIGURAÇÃO DA LISTBOX\n\tNome: ListBox1Masc\n\tMultiSelect: 2-fmMultiSelectExtended\n\n2) PARA O USUÁRIO NÃO SELECIONAR A LINHA DO CABEÇALHO NA LISTBOX:\n a) duplo click na listbox;\n b) selecionar o evento \"change\" na barra de declarações e eventos;\n c) colocar o código em cada listbox:\n\nPrivate Sub ListBox1Masc_Change()\n\tIf ListBox1Masc.Selected(0) = True Then\n    \tListBox1Masc.Selected(0) = False\n\tEnd If\nEnd Sub"]
[null,null,null,null,null,null,null,null,"DEMAIS CÓDIGOS NOS BOTÕES"]
[null,null,null,null,null,null,null,null,"1 - Carregar dados da planilha na List Box através Botão Nota BI (código no Command Botton)"]