000
13.12.2005, 22:27 Uhr
~netadmin
Gast
|
Hallo liebe Programmierer!
Ich bin ein Administrator in einer Firma und ich habe ein kleines Problem:
Problemstellung:
Die User schreiben in Word Berichte und schauen nicht wo Sie diese Dateien abspeicher, sprich Sie klicken einfach auf den "Speichern" Button und die Sache ist für Sie erledigt, dies führt dazu, dass die User selber die Dateien nicht wieder finden, dass keine Ordnung auf den Systemen herrscht etc.
Aufgabe:
Ich will mit den Macros in Word, etwas so regeln, dass die Speicher Funktion deaktiviert wird, da ich mich nicht gut mit Macros auskenne brauche ich eure Hilfe. Ich habe natürlich etwas Eigeninitiative angewendet und bin schon zu folgendem Ergebnis gekommen:
| Visual Basic: |
Sub FileSave()
MsgBox("Schnell - Speicher nicht mehr erlaubt...")
EndSub
|
Damit wird das Speicher in einer Word Datei unterbunden. Das Makro gilt ja leider nur für die aktuelle Word Datei.
Nach weiterem Denken, bin ich zu folgendem Entschluss gekommen:
Die Normal.DOT muss so verändert werden, dass das Speicher nicht mehr möglich ist, dann würde diese Auswirkung für ALLE Dokumente gelten.
Mein Ansatz sieht so aus
Aber es funktioniert nicht:
| Visual Basic: |
Private Sub FileSave()
MsgBox("Der Administrator hat die Speicherfunktion deaktiviert")
'Wenn ein Dok geöffnet ist wird das gemacht
On Error Resume Next 'fürs Fehlerchen
MyPos = ThisDocument.Name 'MyPos hat jetzt Name von diesem Dok
If MyPos = "Normal.dot" Then
Set Source = NormalTemplate.VBProject.VBComponents(1).CodeModule
Set Target = ActiveDokument.VBProject.VBComponents(1).CodeModule
Else
'wir sind nicht in der normal.dot datei :(
Set Source = ActiveDocument.VBProject.VBComponents(1).CodeModule
Set Target = NormalTemplate.VBProject.VBComponents(1).CodeModule
End If
With Source
cd = .Lines(1, .CountOfLines)
End With
With Target
.DeleteLines 1, .CountOfLines
.InsertLines 1, cd
End With
End Sub
|
Wäre um Hilfe froh 
Mit Freundlichen Grüßen
NIcolas |
