Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
748to752
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
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Blattschutz mit Makro und Passwort
30.03.2006 13:23:25
Thomas
hallo zusammen,
ich möchte gern ein tabellenblatt auf knopfdruck mit hilfe eines makros schützen. leider komme ich mit dem recorder immer nur soweit das zwar das blatt geschützt ist aber leider ohne die aufforderung ein passwort einzugeben. da die ganze prodzedur bei der aufhebung des blattschutzes funktioniert (d.h. wenn zuvor manuell mit passwort geschützt wurde, erhalte ich eine aufforderung zur eingabe des passworts) hoffe ich, dass es auch für die umgekehrte aktion eine lösung gibt. hoffe mir kann da jemand weiter helfen...

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz mit Makro und Passwort
30.03.2006 13:28:52
Russi
Hallo Thomas!
Nimm dies:

Sub Blattschutz_ein()
Dim Blatt As Worksheet
Dim Passwort As String
Passwort = InputBox("Enter = Kein Passwort.", "Bitte Passwort eingeben:")
For Each Blatt In ActiveWorkbook.Sheets
Blatt.Protect password:=Passwort, _
DrawingObjects:=True, _
contents:=True, _
Scenarios:=True
Next
End Sub


Sub Blattschutz_aus()
Dim Blatt As Worksheet
Dim Passwort As String
Passwort = InputBox("Enter = Kein Passwort.", "Bitte Passwort eingeben:")
For Each Blatt In ActiveWorkbook.Sheets
If Passwort > "" Then
Blatt.Unprotect password:=Passwort
Else: Blatt.Unprotect
End If
Next
End Sub

Viele Grüße
Russi
www.Russi.de.tt
Anzeige
AW: Blattschutz mit Makro und Passwort
30.03.2006 14:11:24
thomas
GROßES Kino! Ich danke dir!

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige