Wie blende ich ein Blatt mit VBA?

Question

Microsoft Excel 2010 verfügt über Sheet1, Sheet2, Sheet3.

In Blatt 1 ist die Seite gesperrt. Es enthält Felder, die Sheet3 referenzieren.

Zum Beispiel hat Sheet1 auf A2 den Titel "Name" und B2 hat = Sheet3! B2.

Auf Blatt3 hat A2 den Titel "Name" und B2 ist leer, es sei denn, der Benutzer füllt es aus. Natürlich füllt Blatt3 Zelle B2 automatisch in Blatt1.

Auf Blatt 3 habe ich mehr ähnliche Felder, die von Benutzern wie Adresse und Telefonnummer bearbeitet werden können. Ich möchte jedoch Sheet3 ausblenden, indem ich einen Button erzeuge, der Sheet3 nach dem Anklicken verbirgt. Ich möchte nicht, dass Leute, denen diese Datei per E-Mail geschickt wurde, dieses Sheet3 mit allen Informationen sehen. Es wird automatisierte Systeme verwirren.

Ich habe alles recherchiert, was ich konnte und fand einige Codes, die ein Blatt ausblenden, nachdem Informationen in ein bestimmtes Feld eingegeben wurden, aber ich war mir nicht sicher, wie man diesen Code auf eine Schaltfläche anwendet. Der Zweck für diese Schaltfläche ist nicht alle meine Benutzer sind technisch versiert, so ist dies ein schneller Weg, um ihnen zu ermöglichen, das Blatt ohne viel Aufhebens zu verstecken. Der Button würde auch auf Sheet3 gehen.

Ich fand einen Code, der helfen könnte, wenn jemand einige VBA kennt, um es in die Verwendung eines Knopfes umzuwandeln. Dieser Code sagt B6 und B7, verstecken Sie das Blatt. Ich bin wirklich verloren, wie man Tastenklickbefehl mit dieser fast geschlossenen Formel verwendet.

Sub ShowHideWorksheets() 
Dim Cell As Range 
For Each Cell In Range("B6:B7") 
ActiveWorkbook.Worksheets(Cell.Value).Visible = Not 
ActiveWorkbook.Worksheets(Cell.Value).Visible 
Next Cell 
End Sub 

Answer 1

fast, versuchen:

ActiveWorkbook.Worksheets(Cell.Value).Visible = xlSheetHidden 

oder wenn Sie das Blatt verstecken wollen, und nicht zulassen, dass der Benutzer es in der verdeckten Blatt Sammlung zu sehen:

ActiveWorkbook.Worksheets(Cell.Value).Visible = xlSheetVeryHidden