speichern trotz oder mit Blattschutz

Private Sub Worksheet_Change(ByVal Target As Range) Dim wsEin As Worksheet, wsSpei As Worksheet Dim gZe&, gSp% ' Zeile und Spalte der geänderten Zelle gZe = Target.Row gSp = Target.Column ' nur Spalten A bis D, Zeilen bis 19 If gSp < 28 And gSp > 4 And gZe < 40 And gZe > 3 Then Set wsEin = ActiveSheet ' Öffnen der "Speichermappe" Set wsSpei = Workbooks.Open("P:\Servierschnitt\Übersicht Paletten 06\Januar\datenblatt.xls").Sheets(1) ' Addition wsSpei.Cells(gZe, gSp) = wsSpei.Cells(gZe, gSp) _ + wsEin.Cells(gZe, gSp) ' Schließen der "Speichermappe" ActiveWorkbook.Close SaveChanges:=True Application.EnableEvents = False Target.ClearContents Application.EnableEvents = True End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub schutz() ActiveSheet.Protection.AllowEditRanges.Add Title:="Bereich1", Range:=Range( _ "A1:D19"), Password:="lisa" ActiveSheet.Protect Password:="lisa2", UserInterfaceOnly:=True, _ DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub

Hallo Hans
Ich habe versucht noch einmal mein anliegen zu schildern.
Das schwerste ist es für mich immer etwas zu erklären wo von ich im Grund keine Ahnung habe.
Aber vieleicht kannst du es so etwas besser nachvollziehen
Schönen Dank für deine Bemühungen.
Gruß Lisa
Ich habe zwei identische Tabellen. Eine dient als Engabemaske für all meine Mitarbeiter in der Daten eingegeben werden.
Die zweite liegt im Netzwerk in einem anderen Laufwerk in dem die Daten aus der ersten Tabelle gespeichert werden.
Diese zweite Tabelle soll über eben diesen VBA Code beschrieben werden, aber sonst nur von mir bearbeitet werden dürfen und das eben über ein Kennwort.
Wenn ich die zweite Tabelle nun mit einem Kennwort schütze kann ich nichts mehr einspeichern lassen, über VBA, da bekomme ich dann eine Fehlermeldung.
Kann man das Kennwort nicht im VBA Code Festschreiben?
Also: Workbooks.Open("P:\Servierschnitt\Übersicht Paletten 06\Januar\datenblatt.xls").Sheets(1)
hier irgendwo sollte das Kennwort übergangen werden, wenn es geht unkenntlich
Das ist mein Code mit dem ich gegewertig arbeit funktioniert auch sehr gut.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim wsEin As Worksheet, wsSpei As Worksheet
Dim gZe&, gSp%                        ' Zeile und Spalte der geänderten Zelle
gZe = Target.Row
gSp = Target.Column
' nur Spalten A bis D, Zeilen bis 19
If gSp < 28 And gSp > 4 And gZe < 40 And gZe > 3 Then
Set wsEin = ActiveSheet
' Öffnen der "Speichermappe"
Set wsSpei = Workbooks.Open("P:\Servierschnitt\Übersicht Paletten 06\Januar\datenblatt.xls").Sheets(1)
' Addition
wsSpei.Cells(gZe, gSp) = wsSpei.Cells(gZe, gSp) _
+ wsEin.Cells(gZe, gSp)
' Schließen der "Speichermappe"
ActiveWorkbook.Close SaveChanges:=True
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
End If
End Sub

Beliebteste Forumthreads (12 Monate)

speichern trotz oder mit Blattschutz

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread