Excel sayfa acarken Masa üstüne kayıt sorması

[mehmetcelikk55]

Merhaba Arkdaslar,

Bir problemim var yardımcı olabilecek varmı?

Ortak alandaki bir excel dosyasını ortak klasor icerisinden acılmasına izin vermemek istiyorum ,bu yuzden acan kisi masa üstüne kayıt yapmaya yonlendirerek acılmasına izin verilmesi yonunde nasıl bir makro yazabilirim?

 

[kan-nas]

Sub auto_open()
MsgBox " dosya C sürücüsüne kopyalanacaktır. Ortaktaki dosyada değişiklik yapamazsınız.", vbCritical, "UYARI"
ActiveWorkbook.SaveAs Filename:="c:\Yedek.xls"
ActiveWorkbook.Close
End Sub

 

[mancubus]

ilgili çalışma kitabının kod modülüne (ThisWorkbook) kopyalayınız.
çalışması için kullanıcının makroları etkin hale getirmesi gerekmektedir.

Option Explicit

Private Sub Workbook_Open()

    Dim DTop As String, fPath As String, fName As String
    
    DTop = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    fPath = ThisWorkbook.Path
    fName = ThisWorkbook.Name
    
    Application.DisplayAlerts = False
    
    If ThisWorkbook.Path <> DTop Then
        MsgBox "Dosya masaüstüne kopyalanacaktır. Çalışmalarınıza bu yeni dosyadan devam ediniz!"
        ThisWorkbook.SaveAs DTop & "\" & fName
    End If

    Application.DisplayAlerts = True

End Sub

 

[mehmetcelikk55]

Tesekkurler yardımlarınız icin