Sperren von Schaltflächen

Private Sub CommandButton2_Click() ' Alle Blätter schützen On Error Resume Next For Each Blatt _ In ActiveWorkbook.Sheets Blatt.Protect Password:="123", _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True ActiveSheet.EnableSelection = xlUnlockedCells Next Worksheets("Schutz").Unprotect Password:="123" ' Passwort in dem sich die Button befinden ä _ _ ndern Worksheets("Schutz").Protect Password:="456", _ DrawingObjects:=False, _ Contents:=True, _ Scenarios:=True Worksheets("Schutz").EnableSelection = xlUnlockedCells End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub CommandButton2_Click() ' Alle Blätter schützen Dim Blatt For Each Blatt _ In ActiveWorkbook.Sheets Blatt.Protect Password:="123", _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True ActiveSheet.EnableSelection = xlUnlockedCells Next ActiveSheet.Unprotect Password:="123" ' Passwort in dem sich die Button befinden ä _ ndern ActiveSheet.EnableSelection = xlUnlockedCells ActiveSheet.Protect Password:="456", DrawingObjects:=False, Contents:=True, _ Scenarios:=True End Sub

Sub BlattSchutz() On Error Resume Next Dim wks As Worksheet Pwd = Application.InputBox("Passwort eingeben") Pwd2 = Application.InputBox("Wiederholung") If Pwd = Pwd2 Then For Each wks In ActiveWorkbook.Worksheets wks.Protect Password:=Pwd, DrawingObjects:=False, Contents:=True, Scenarios:=True ActiveSheet.EnableSelection = xlUnlockedCells Next wks Else: MsgBox ("Passwörter stimmen nicht überein") End If End Sub

Hallo
Habe gerade erst gesehen, das Du noch eine Frage hattest (da musst Du den Beitrag offen lassen
(Häkchen rein bei Frage noch offen)
Also ich würde es dann so lösen. PW=0123
Eine als Public deklarierte Variable, die beim Workbook.Open den String z.B. "0123" zugewiesen bekommt.
Konkret:
in ein Modul


Option Explicit
Public PwPerfekt As String
Sub Aufheben()
Dim wks As Worksheet
Dim Pwd As String
Pwd = Application.InputBox("Passwort eingeben")
If Pwd = PwPerfekt Then
For Each wks In ActiveWorkbook.Worksheets
wks.Unprotect Password:=Pwd
Next wks
Else
MsgBox "Passwort-Fehler"
End If
End Sub

in DieseArbeitsmappe


Option Explicit
Private Sub Workbook_Open()
PwPerfekt = "0123"
End Sub

Nun brauchst Du im Code nur abfragen ob Pwd=PwPerfekt ist.
also so: (wie oben im Modul)
Du solltest Dir angewöhnen mit Option Explicit zu arbeiten.
On Error Resume Next würde ich auch nur als letztes Mittel einsetzen.
Warum hast Du es denn drin?
Dadurch findest Du möglicherweise kleinere Fehler nicht! Wenns also nicht sein muss, raus damit!
Desweiteren deklarierst Du
Dim wks as Worksheet aber bei Pwd ist Fehlanzeige. Wenn schon, denn schon
Dim Pwd as String
PwPerfekt ist als Public schon deklariert
https://www.herber.de/bbs/user/48812.xls
Userbild

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Sperren von Schaltflächen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread