Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Blattschutz mit Button und Passwort

Betrifft: Blattschutz mit Button und Passwort von: Mario Hermann
Geschrieben am: 21.10.2020 18:29:48

Guten Abend zusammen,
Ich habe ein Tabellenblatt wo Spalte N bis AB ausgeblendet ist und dann habe ich ein Blattschutz mit einem Passwort "a" aktiviert.

Jetzt habe ich ein AktiveX Steuerelement mit dem Code:

Private Sub CommandButton4_Click()
Dim Passwort As String
Passwort = InputBox("Bitte Passwort eingeben", "Passwort-Abfrage", "Passwort hier eingeben")
If Passwort <> "tbl" Then Exit Sub
MsgBox "Passwort ist Ok" '

Range("AG11").Select
ActiveSheet.Unprotect
Columns("N:AB").Select
Range("N3").Activate
Selection.EntireColumn.Hidden = False
Range("AC11").Select

Wenn ich auf diesem Button drücke und das Passwort "tbl" eingebe, kommt wieder ein Feld vom Blattschutz wo ich das Passwort "a" eingeben muss und danach ist Blattschutz deaktiviert und er blendet die ausgeblendeten Spalten automatisch ein.

Wer kann mir helfen das ich nicht zweimal Passwort eingeben muss.

Danke schonmal für eure Unterstützung !!!!!

LG Mario

Betrifft: AW: Blattschutz mit Button und Passwort
von: AlterDresdner
Geschrieben am: 21.10.2020 18:40:28

Hallo Mario,
schreib mal hinter ActiveSheet.Unprotect noch password:="a"
Gruß der AlteDresdner

Betrifft: AW: Blattschutz mit Button und Passwort
von: Mario Hermann
Geschrieben am: 21.10.2020 18:55:45

Danke der AlteDresdner :) hat geklappt !!!!!

Hätte noch eine frage. Vieleicht kannst du mir ja helfen.

Hab Rechtecke Formen eingefügt und mit dem möchte ich das diese Spalten wieder ausgeblendet werden und der Blattschutz wieder aktiviert ist und dann alles speichert.

Betrifft: AW: Blattschutz mit Button und Passwort
von: Mario Hermann
Geschrieben am: 21.10.2020 19:23:27

Habe Makro und er macht auch alles was er machen soll. Nur leider ist im Blattschutz ohne Passwort aktiviert.


Columns("N:AB").Select
Range("AB1").Activate
Selection.EntireColumn.Hidden = True
ActiveWorkbook.Save
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Betrifft: AW: Blattschutz mit Button und Passwort
von: Mario Hermann
Geschrieben am: 21.10.2020 19:43:30

Hab es selbst geschafft mit dem Passwort :)

Columns("N:AB").Select
Range("AB1").Activate
Selection.EntireColumn.Hidden = True
ActiveWorkbook.Save
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:="a"

Beiträge aus dem Excel-Forum zum Thema "Blattschutz mit Button und Passwort "