Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
292to296
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
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei wird bei VBA-PW falsch abgespeichert...

Datei wird bei VBA-PW falsch abgespeichert...
10.08.2003 07:43:32
Ralf
Hallo alle zusammen!
Mal wieder ein Problem, was den PW-Schutz von VBA angeht!
Wurde höchstwarscheinlich 10.000 mal besprochen, aber
eine Lösung für mein Problem habe ich nicht entdecken können
(Oder nicht gefunden...).
Habe mein VBA-Code per "VBAProjekt-Eigenschaften/Schutz" mit
einem Kennwort versehen ("Projekt für Anzeige Sperren" und PW).
Jetzt verhält es sich aber so, das wenn die Datei geöffnet wird
und man arbeitet dran und beendet, bei der Speicherung (diese
erfolgt automatisch per VBA-Code)eine Datei gespeichert wird,
die eine Zahlenkolonne enthält ohne Dateiendung.
Mein Desktop Link kann dann natürlich nicht ausgeführt werden, weil
die ursprüngliche Datei nicht mehr vorhanden ist...diese wurde ja
in diese kryptische Datei gespeichert.
Wenn ich den PW-Schutz entferne erfolgt die auto. speicherung ohne
Probleme...
Frage: Wieso speichert der mir die Datei bei PW-Schutz nicht als
Original-Datei ab??? Mache ich was falsch...oder kann man das anderweitig
abstellen???
Danke im vorraus für Eure Mühe
Ralf K.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei wird bei VBA-PW falsch abgespeichert...
10.08.2003 07:45:32
Hajo_Zi
Hallo Ralf
liegt es n der Hitze oder warum sehe ich kein Code??
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.
Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen. Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.

Anzeige
AW: Datei wird bei VBA-PW falsch abgespeichert...
10.08.2003 07:54:24
Ralf
Sorry!
Der Grundgedanke war, das es mit den allgm.Einstellungen zusammenhängt,
deswegen kein Code...Ok hier nocheinmal der Code...
Habe jetzt den ganzen "Beenden" Code aufgeführt!

Sub Ende()
'Beim Schließen der Datei die Symbolleiste wieder entfernen
Application.ScreenUpdating = False
Dim I%
On Error Resume Next
For I = 1 To UBound(Cdb)
Application.CommandBars(Cdb(I)).Visible = True
Next I
Application.CommandBars("Abwesenheitserfassung").Visible = False
With Application.CommandBars("Worksheet Menu Bar")
.Enabled = True
End With
'Vorgegebene Shortcuts Aktivieren
Dim intCounter As Integer
On Error Resume Next
For intCounter = 1 To 255
Application.OnKey "^" & Chr(intCounter)
Next intCounter
'Funktionstasten EIN
For intCounter = 1 To 12
Application.OnKey "{F" & intCounter & "}"
Next intCounter
Application.OnKey "{tab}"
'Alles wieder schützen für User
If ActiveWorkbook.ReadOnly = False Then
For Each blatt In Worksheets
blatt.Protect ("XXXXXXXXXX")
Next
ActiveWorkbook.Protect ("XXXXXXXXXX")
'Menüleiste einblenden und ausblenden?
With Application.CommandBars("Worksheet Menu Bar")
.Enabled = True
End With
End If
Application.ScreenUpdating = True
Application.DisplayAlerts = False
'Beenden ohne Anzeige aber mit Speichern
If ActiveWorkbook.ReadOnly = False Then
ActiveWorkbook.Close True
Application.Quit
Else
Application.Quit
End If
End Sub


Anzeige
AW: Datei wird bei VBA-PW falsch abgespeichert...
10.08.2003 08:10:19
Hajo_Zi
Hallo Ralf
in Deinem ersten Beitrag ging es um ein Speicherproblem. In Deinem Code sehe ich aber nichts von speichern unter neuen Namen
Option Explicit

Sub Ende()
'Beim Schließen der Datei die Symbolleiste wieder entfernen
Application.ScreenUpdating = False
Dim I%
Dim Blatt As Worksheet
On Error Resume Next
For I = 1 To UBound(Cdb)
Application.CommandBars(Cdb(I)).Visible = True
Next I
Application.CommandBars("Abwesenheitserfassung").Visible = False
With Application.CommandBars("Worksheet Menu Bar")
.Enabled = True
End With
'Vorgegebene Shortcuts Aktivieren
Dim intCounter As Integer
On Error Resume Next
For intCounter = 1 To 255
Application.OnKey "^" & Chr(intCounter)
Next intCounter
'Funktionstasten EIN
For intCounter = 1 To 12
Application.OnKey "{F" & intCounter & "}"
Next intCounter
Application.OnKey "{tab}"
'Alles wieder schützen für User
If ActiveWorkbook.ReadOnly = False Then
For Each Blatt In Worksheets
Blatt.Protect ("XXXXXXXXXX")
Next
ActiveWorkbook.Protect ("XXXXXXXXXX")
'Menüleiste einblenden und ausblenden?
With Application.CommandBars("Worksheet Menu Bar")
.Enabled = True
End With
End If
Application.ScreenUpdating = True
Application.DisplayAlerts = False
'Beenden ohne Anzeige aber mit Speichern
If ActiveWorkbook.ReadOnly = False Then
ActiveWorkbook.Close True
' Die Datei wird geschlossen, nachfolgende Befehle werden nicht
' mehr abgearbeitet
' besser
'ActiveWorkbook.Save
Application.Quit
Else
Application.Quit
End If
End Sub

Bei meinem Test waren Variablen "Cdb" und "Blatt" nicht definiert.
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.
Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen. Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.

Anzeige
AW: Datei wird bei VBA-PW falsch abgespeichert...
10.08.2003 08:30:56
Ralf K.
Cdb und Blatt werden als Public deklariert!
Habe den Code mal geändert, aber leider ohne Erfolg!
Es sieht also wie folgt aus:
- Die Original Datei heisst: plan.xls
nach dem beenden legt er mir eine Datei
wie zb. folgende an:
"19ECD400" ohne Endung
Die Original Datei wird einfach dementsprechend überschrieben...habe auch
schon versucht das Problem mit
sName = ActiveWorkBook.Name
sPath = ActiveWorkBook.Path
PathString = sPath & "\" & sName
ActiveWorkbook.SaveAs PathString
zu lösen aber auch ohne Erfolg.
Wenn ich Starte und den PW-Schutz entferne, dann wird es auch korrekt
abgespeichert...
aber eigentlich möchte ich den ja vor neugierigen Blicken schützen...
Bin mehr als verwundert übr dieses Phänomen... :((((
Gruß Ralf K.

Anzeige
AW: Datei wird bei VBA-PW falsch abgespeichert...
10.08.2003 08:51:26
Ralf K.
So habe nocheinmal rumgebastelt und dann hat er mir doch endlich
einmal eine Fehlermeldung rausgeworfen!
Habe die Datei Schreibgeschützt mit PW und dann
sagt er mir doch folgendes als ich die "Speichern unter"
wollte:
"Dieses Dateiformat kann nicht gespeichert werden, während das VBA-Projekt
geschützt ist.
Sie können den Schutz für das VBA-Projekt....Blah Blah...."
Ok gedrückt!
Und dann sagt er mir weiter:
"Datei wurde unter dem Namen "B302F400" gespeichert. Kann nicht in "plan.xls"
umbenannt werden. Sie müssen diese Datei schließen."
Hat er mir natürlich vorher nicht angezeigt weil alles Unterdrückt wurde...
Aber wirklich schlauer bin ich nicht!!!!
Ralf K.

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige