Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
656to660
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
656to660
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei speichern unmöglich da VBA passwd geschützt

Datei speichern unmöglich da VBA passwd geschützt
24.08.2005 09:03:11
Patrick
Guten Morgen,
folgendes Problem:
Habe ein Excel Dokument mit VBA Code hinterlegt. Dieses File steuert das aktivieren des Makros, je nachdem versteckt es die Seiten des Programms oder es zeigt sie. Nun möchte ich das VBA Projekt mit Passwort schützen, und nun kann ich das Dokument nicht mehr speichern.
Kann mir jemand Helfen?
Hier der Code:
Option Explicit
Dim InI As Integer
Dim ByS As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Mldg As Byte
ActiveWorkbook.Unprotect ("123")
If ActiveWorkbook.Saved Then
Sheets("Error").Visible = True
For InI = Sheets.Count To 1 Step -1
If Sheets(InI).Name <> "Error" Then Sheets(InI).Visible = xlVeryHidden
Next InI
ByS = True
ThisWorkbook.Close True
Else
If ByS = True Then Exit Sub
Mldg = MsgBox(" Sollen die Veränderungen gespeichert werden ?", _
vbYesNo + vbQuestion, "Speicher abfrage ?", "", 0)
If Mldg = 6 Then        ' es wurde "Ja" gedrückt
Application.ScreenUpdating = False
Sheets("Error").Visible = True
For InI = Sheets.Count To 1 Step -1
If Sheets(InI).Name <> "Error" Then Sheets(InI).Visible = xlVeryHidden
Next InI
Application.ScreenUpdating = True
ByS = True
ThisWorkbook.Save
Else
ByS = True
ThisWorkbook.Close False
End If
End If
ActiveWorkbook.Protect ("123")
End Sub


Private Sub Workbook_Open()
If Year(Date) >= 2005 And Month(Date) >= 9 And _
((Day(Date) > 1 And Month(Date) = 9) Or Month(Date) > 9) Then
MsgBox "Ihre Testphase ist abgelaufen," _
& vbCr & "bitte wenden Sie sich an Ihren Administrator."
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End If
ActiveWorkbook.Unprotect ("123")
Application.ScreenUpdating = False
For InI = Sheets.Count To 1 Step -1
Sheets(InI).Visible = True
Next InI
Sheets("Error").Visible = xlVeryHidden
Sheets("MS Car").Visible = xlVeryHidden
Sheets("variable-list").Visible = xlVeryHidden
ActiveWorkbook.Saved = True
Application.ScreenUpdating = True
ActiveWorkbook.Protect ("123")
End Sub

Bin für jede Hilfe Dankbar
Gruss Patrick

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

Betreff
Datum
Anwender
Anzeige
AW: Datei speichern unmöglich da VBA passwd geschützt
27.08.2005 22:07:33
MartinM
Hallo Patrik
Bei mir funktioniert allse bestens, auch mit Projektschutz.
https://www.herber.de/bbs/user/26099.xls
PWD = "test"
Gruss
MartinM
AW: Datei speichern unmöglich da VBA passwd geschützt
27.08.2005 22:09:52
MartinM
Hallo nochmals
Meinte natürlich "alles".
:-)
MartinM
Anzeige

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige