În acest articol, vom crea o macro pentru ascunderea foii Excel. Foaia Excel este ascunsă modificându-și proprietățile folosind codul VBA. Foaia Excel ascunsă nu poate fi făcută vizibilă utilizând butonul de afișare a aplicației Excel.
În acest exemplu, am creat un formular de înregistrare la poartă.
Când utilizatorul introduce detaliile în formular și face clic pe butonul de trimitere, detaliile sunt salvate în foaia „Date”. Butonului „Trimiteți” i se atribuie macrocomanda „SubmittingDetail”.
Foaia „Date” poate fi ascunsă sau neacoperită făcând clic pe butonul „Foaie de date”. Dacă foaia „Date” este ascunsă, aceasta nu poate fi făcută vizibilă utilizând opțiunea de afișare disponibilă în foaia Excel.
Foaia ascunsă utilizând butonul „Foaie de date”, rămâne vizibilă în exploratorul de proiecte în VBE (Visual Basic Editor), iar proprietățile foaiei foii ascunse sunt setate la xlSheetVeryHidden.
Foaia poate fi, de asemenea, foarte ascunsă fără a utiliza codul VBA. Pentru aceasta, trebuie să deschidem VBE și să setăm proprietatea vizibilă a foii în fereastra de proprietăți la 2 - xlSheetVeryHidden.
Pentru a ascunde o foaie, astfel încât nimeni să nu o poată dezvălui fără să știe parola pentru Proiectul Vb, pur și simplu ascundeți fișierul fie folosind codul VBA, fie schimbați proprietatea vizibilă a foii în 2, adică xlsheetveryhidden și blocați proiectul Vb împreună cu parola.
Pentru a proteja Vb Project cu parolă, faceți clic dreapta pe obiectul Microsoft Excel> Selectați VBAProject Properties …> Va apărea caseta de dialog Proprietăți VBAProject.
În caseta de dialog Proprietăți VBAProject, accesați fila Protecție> bifați caseta pentru blocarea proiectului> atribuiți parola pentru proiect. Parola pe care o atribuim fișierului atașat este „înregistrare”. Se poate atribui orice parolă pentru proiect.
Butonul „Foaie de date” este utilizat atât pentru ascunderea, cât și pentru dezvăluirea foii. Butonului „Foaie de date” i se atribuie macrocomanda „ToggleHidingDataSheet”. Când utilizatorul va face clic pe buton și dacă fișierul este ascuns, atunci foaia este făcută vizibilă și dacă foaia este vizibilă, atunci foaia este ascunsă.
Foaia poate fi făcută vizibilă fie făcând clic pe butonul „Foaie de date”, fie schimbând proprietatea vizibilă la 0, adică xlSheetNormal folosind parola pentru VBProject.
Vă rugăm să urmați codul de mai jos
Sub SubmittingDetail () Dim LastRow At Long 'Găsirea ultimului rând din foaia „Date” unde trebuie introduse date LastRow = Foi („Date”). Gama („A1”). SpecialCells (xlLastCell) .Row + 1 'Inserarea datelor în foaia „Date” cu Foi („Date”)' Atribuirea numărului de serie .Range („A” & LastRow) = LastRow - 1 'Inserarea datelor în foaia „Data” din intervalul F15 până la J15 .Range („B "& LastRow &": F "& LastRow) = Range (" F15: J15 "). Valoarea se termină cu 'Ștergerea conținutului celulei din intervalul Range (" F15: J15 "). Selectați Selection.ClearContents Range (" F15 " ). Selectați End Sub Sub ToggleHidingDataSheet () 'Verificarea dacă foaia este ascunsă în prezent Dacă foi ("Date"). Vizibil = xlVeryHidden Apoi' Cod pentru a face foaia vizibilă Foi ("Date"). Vizibil = True Else 'Cod pentru ascundere foaia Foi („Date”). Vizibil = xlVeryHidden End If End Sub
Dacă ți-a plăcut acest blog, distribuie-l prietenilor tăi de pe Facebook. De asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți munca noastră și o putem îmbunătăți. Scrieți-ne pe site-ul de e-mail