Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
288to292
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sichern eines Dokumentes

Sichern eines Dokumentes
06.08.2003 10:30:52
Tobi
Hallo !
Ich habe schon wieder ein Problem, und zwar, soll bei einem Exceldokument am
Anfang eine abfrage erscheinen, die entscheidet ob das dokument geschützt oder ungeschützt geöffnet wird, "natürlich" mit passwort abfrage. Das heisst wird das dokument geöffnet, und der schutz soll aufgehoben werden, muss ein bestimmtes Kennwort eingegeben werden. Andernfalls, wenn das dokument geschützt geöffnet werden soll, darf der User absolut nichts an dem dokument ändern können und es sich nur betrachten !
Vielen Danke schonmal ...
Gruss
Tobi

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

Betreff
Datum
Anwender
Anzeige
AW: Sichern eines Dokumentes
06.08.2003 10:51:18
Stephan
Hi Tobi!
Ein Versuch:

Private Sub Workbook_Open()
auswahl = MsgBox("Wollen Sie das Dokument ungeschützt öffnen (PW!)", vbYesNo)
If auswahl = 7 Then
Exit Sub
Else
pw = InputBox("PW eingeben")
Worksheets("Tabelle1").Unprotect pw
End If
End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Tabelle1").Protect "test"
End Sub


AW: Sichern eines Dokumentes
06.08.2003 11:30:43
Koenig W.
Hallo Tobi
so sollte es machbar sein.
Erstelle eine Userform mit einer Textbox1 und einem Button
der Code für den Button

Private Sub CommandButton1_Click()
Dim i As Long
If UserForm1.TextBox1.Value = "on" Then
UserForm1.Hide
For i = 1 To ActiveWorkbook.Sheets.Count
Worksheets(i).Unprotect ("on")
Next i
Else
UserForm1.Hide
For i = 1 To ActiveWorkbook.Sheets.Count
Worksheets(i).Protect ("on")
Next i
End If
End Sub

Bei der Eigenschaft für die Textbox kannst Du unter PasswordChar ein Stv Zeichen eingeben
normalerweise ein *
unter dieser Arbeitsmappe kommt der Code

Private Sub Workbook_Open()
UserForm1.Show
End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Long
For i = 1 To ActiveWorkbook.Sheets.Count
Worksheets(i).Protect ("on")
Next i
End Sub

die Arbeitsblätter kannst Du mit einem andern Passwort schützen als das EingangsPW in der Textbox. Sollte jemand das Open Ereignis umgehen sind die Blätter trotzdem geschützt.
Gruss Wilhelm

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige