Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Abfragefenster

Abfragefenster
29.06.2007 13:47:00
Stevi
Hallo,
ich habe folgende Codes zum An- und Ausschalten des Blattschutzes:
Funktioniert auch so wie es sein soll, allerdings ist es möglich während man den Blattschutz aufhebt, das ein Pop-Up-Fenster kommt in dem ein Text steht ob man sich wirklich sicher ist den Blattschutz aufzuheben und Ja/Nein als Buttonauswahl hat?

Sub Blattschutz_ein()
Dim TB As Variant
Application.ScreenUpdating = False
For Each TB In ActiveWorkbook.Sheets
TB.Protect Password:="pw"
Next
MsgBox "Tabelle ist nun geschützt !", 48 + 0, "Hinweis:"
End Sub



Sub Blattschutz_aus()
Dim TB As Variant
Application.ScreenUpdating = False
For Each TB In ActiveWorkbook.Sheets
TB.Unprotect Password:="pw"
Next
MsgBox "Der Schutz ist nun aufgehoben !", 64 + 0, "Hinweis:"
End Sub


Gruß
Stevi

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abfragefenster
29.06.2007 13:51:00
Rudi
Hallo,

Sub Blattschutz_aus()
Dim TB As Variant, msg As Byte
msg = MsgBox("sicher?", vbYesNo)
If msg = vbYes Then
Application.ScreenUpdating = False
For Each TB In ActiveWorkbook.Sheets
TB.Unprotect Password:="pw"
Next
MsgBox "Der Schutz ist nun aufgehoben !", 64 + 0, "Hinweis:"
End If
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Abfragefenster
29.06.2007 14:05:00
Stevi
Vielen Dank für die Lösungsvorschläge, funktioniert super!

AW: Abfragefenster
29.06.2007 13:51:00
Andi
Hi,
das geht so:

Sub Blattschutz_aus()
Dim TB As Variant
If MsgBox("Blattschutz wirklich aufheben?", vbYesNo) = vbYes Then
Application.ScreenUpdating = False
For Each TB In ActiveWorkbook.Sheets
TB.Unprotect Password:="pw"
Next
MsgBox "Der Schutz ist nun aufgehoben !", 64 + 0, "Hinweis:"
End If
End Sub


Schönen Gruß,
Andi

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige