Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

20 Ekim 2003 Pazartesi

SaveAs Password

'Module1

Sub SaveAs_Password()
On Error GoTo 20
10
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Password:="0123456789"
ActiveWindow.Close
Application.DisplayAlerts = True
GoTo 10
20
Exit Sub
End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul