Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1020to1024
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
Inhaltsverzeichnis

Blattschutz und Userform

Blattschutz und Userform
10.11.2008 14:22:00
Maris
Hi@all,
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

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Beispieldatei wäre besser
10.11.2008 14:41:00
Chris
Servus Maris,
ohne Beispieldatei schwierig zu sagen. Ich kanns nicht wirklich nachvollziehen, ausser das Entsperren funktioniert nicht.
Gruß
Chris
Bitte auf den Button Nummer Beleg klicken
10.11.2008 14:59:05
Maris
a
AW: Bitte auf den Button Nummer Beleg klicken
10.11.2008 15:39:00
Werner
Hallo Maris,
die Datei "Nummernliste" ist geschützt.
Dei VBA-Code aktiviert diese Datei, bzw. die Tabelle, wo ein Schutz drauf liegt.
entweder hier den Schutz aufheben, oder die Tabelle ungeschützt ablegen.
Ich habe eine Zeile eingefügt, dann funktioniert es auch:
(ThisWorkbook.Unprotect)
Evtl.

Private Sub UserForm_Initialize()
ActiveSheet.Unprotect
Range("a1").Select
On Error GoTo Öffnen
Set wbNr = Workbooks("Nummernliste.xls")
On Error GoTo 0
ThisWorkbook.Unprotect
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


Gruß
Werner

Anzeige
AW: Beispieldatei wäre besser
10.11.2008 15:18:00
Chris
Servus Maris,
das liegt an der Userform. Ich habe diese mal gelöscht und durch eine neue ersetzt. Dann gings. An was das genau liegt, weiß ich auch nicht.
Ich würde dir vorschlagen, die UDF zu löschen und eine neue zu erstellen. Den Code kannst du ja per Strg+C in ein anderes Modul kopieren und anschließend in der UF wieder einfügen.
Gruß
Chris
AW: Beispieldatei wäre besser
10.11.2008 15:36:14
Maris
Hi Chris,
sorry hat aber bei mir nicht geklappt! Egal was ich mach die dch.. Meldung tauscht wieder auf...
Gruß
Maris
AW: Beispieldatei wäre besser
10.11.2008 18:13:38
Maris
hat geklappt DANKE!

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige