Verboden excelfile op te slaan

[nootie]

Hoi,

Ik heb een vba bestandje gemaakt, maar nu zou ik graag hebben dat men het excel bestandje niet kan opslaan onder de naam van het excelbestand.

Bv. Mijn excelfile noemt 'Berekening_bouwput.xlsm'. Nu mag men alle namen gebruiken om op te slaan behalve de naam 'Berekening_bouwput.xlsm'.

Weet er hier iemand een stukje code voor?

 

[nootie]

OK, ik heb zelf iets in elkaar kunnen boksen. Je moet in 'This workbook' een stukje code plaatsen (zie hieronder). Ik heb wel de opgave verkeerd geformuleerd. Het enige wat er niet mocht opgeslaan worden is het originele document (met de naam "Berekening_bouwputten.xlsm"). Alle andere namen mochten wel.

Public myfullname3
Public MyName3
Public pathnaam2

Public Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
myfullname4
fileSaveName = Application.GetSaveAsFilename( _
    fileFilter:="Text Files (*.xlsm), *.xlsm")
If fileSaveName = pathnaam2 Then
    MsgBox "Er kan niet opgeslaan worden met de originele naam: " & MyName3 & ".", , ""
    Cancel = True
End If
End Sub

Function myfullname4() As String
   myfullname3 = ThisWorkbook.FullName
   MyName3 = "Berekening_bouwputten.xlsm"
   lengtename = Len(MyName3)
   lengte = Len(myfullname3)
        
   pathnaam2 = ""
   aantal = 0
   For i = 1 To lengte
        If Mid(myfullname3, i, 1) = "\" Then aantal = aantal + 1
   Next i
   
   For i = 0 To aantal - 1
        resu = Split(myfullname3, "\")
        resu = resu(i)
        pathnaam2 = pathnaam2 & resu & "\"
   Next i
   pathnaam2 = pathnaam2 & MyName3
End Function