Blattschutz und Userform
10.11.2008 14:22:00
Maris
ich werde noch wahnsinnig mit dieser funktion! Ich habe eine Userform welche in einer Tabelle per macro gestartet wird. Die tabelle ist geschützt! Dieser Macro soll eine andere Tabelle öffnen und einen Wert aus der Tabelle in meine Ursprungstabelle übertragen. Leider funktioniert das nicht...
Fehlöermeldung:Laufzeitfehler 1004 . Dieser Befehl kann in einer geschützten Datei nicht verwendet werden...
Das ist aber blödsinn, da ich die Tabelle mit unprotect entsperre und nach Ausführung des Codes wieder sperre....
DER Code:
Sub Öffnen()
FRM_Nummer.Show
End Sub
Option Explicit
Dim wbNr As Workbook
Private Sub CommandButton1_Click()
'Sheets("bericht").Unprotect
'Application.Worksheets.Unprotect
'ActiveSheet.Unprotect
wbNr.Sheets(1).Columns(1).Find(what:=ListBox1.Value).Delete shift:=xlUp
wbNr.Save
Sheets("bericht").Activate
'hier eingeben in welche Zelle der Wert geschrieben werden soll
Range("E214").Select
'hier das Elemt eintragen das übergeben werden soll
ActiveCell.Value = ListBox1.Value
ListBox1.List = wbNr.Sheets(1).Cells(1, 1).CurrentRegion.Value
'Sheets("bericht").Protect
'Application.Worksheets.Unprotect
'ActiveSheet.Protect
End Sub
Private Sub CommandButton2_Click()
Sheets("bericht").Unprotect
wbNr.Close
Unload Me
Sheets("bericht").Protect
End Sub
Private Sub UserForm_Initialize()
'Sheets("bericht").Unprotect
'Application.Worksheets.Unprotect
ActiveSheet.Unprotect
Range("a1").Select
On Error GoTo Öffnen
Set wbNr = Workbooks("Nummernliste.xls")
On Error GoTo 0
ThisWorkbook.Activate
ListBox1.List = wbNr.Sheets(1).Cells(1, 1).CurrentRegion.Value
Exit Sub
Öffnen:
Workbooks.Open ThisWorkbook.Path & "\Nummernliste.xls"
Resume
'Sheets("bericht").Unprotect
'Application.Worksheets.Unprotect
ActiveSheet.Protect
End Sub
Manchmal erschein mir auch die Fehlermeldung 9 das der Indexbereich nicht stimmt!
Gruß
Maris
Anzeige