Workbook unprotect beim Öffnen
12.03.2008 17:13:00
Werner
ich kome nicht weiter und suche deshalb Hilfe:
Das ist der Plan: Mittels einer Userform wird eine 2. Mappe ("Übersicht") geöffnet und Daten aus der 1. Mappe dorthin übertragen, danach wird diese 2. Mappe ohne Abfrage gespeichert und wieder geschlossen - so weit klappt das auch. In diese Mappe sollen aber nicht alle Einblick haben, deshalb muß ich sie mit einem Passwort versehen. Für den Schreibvorgang muß der Schutz aber vorübergehend aufgehoben werden beim Öffnen, und das kriege ich so wie unten nicht hin. Danke im Voraus!
Werner
Private Sub c1_Click()
Application.ScreenUpdating = False
Dim v As Integer
Dim irow As Integer
v = cb1.Value
irow = Workbooks("Übersicht.xls").ActiveSheet.Range("C:C").Cells(Rows.Count, 1).End(xlUp).Row + _
1
Application.DisplayAlerts = False
Workbooks("H:\Fortbildung\Übersicht.xls").Unprotect Password:="4711"
Workbooks.Open ("H:\Fortbildung\Übersicht.xls")
Workbooks("Übersicht.xls").Sheets(v).Activate
Cells(irow, 3).Value = Environ("username")
Cells(irow, 4).Value = Now
If u1.t5.Value "" Then Cells.Cells(irow, 3).AddComment
If u1.t5.Value "" Then Cells.Cells(irow, 3).Comment.Text Text:=u1.t5.Value
Unload Me
With ActiveWorkbook
.Protect Password:="4711"
.Save
.Close
End With
Workbooks("Schulungsplaner_08_.xls").Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub