excel ile ilgili bir ipucu istiyorum...

[Selçuk1]

sorduğum diğer sorulardan da anlaşılacağı üzere excel vasıtasıyla işimle alakalı bir program hazırlıyorum. diğer konularda yapacağınız yardımlar için ayrıca teşekkürler...
bu hazırladığım program sadece tarafımdan değil, başka kullanıcılar tarafından da kullanılacak.. bu yüzden program bittiğinde çalışma kitabımının biraz daha program havasında olmasını istiyorum. yani formullerin, makroların değiştirilmesini önlemek, sadece benim yetki vereceğim bir veri girişi sayfası üzerinden giriş yapılmasını sağlamak istiyorum. ayrıca çalışma kitabı açıldığında sekmelerin gözükmemesini istiyorum.. soruyu tam net olarak soramamış olabilirim.. anlamayanlar için istemeniz durumunda konumla alakalı olmayan bir örnek gönderebilirim..
saygılar, teşekkürler...:hey:

 

[mbattal]

merhaba,
Sayfa sekmelerinin gözükmemesini istiyorsanız, Araçlar > Seçenekler > Sayfa sekmeleri,, işaretini kaldırın
Kolay gelsin

 

[Selçuk1]

istediğim şey sadece sekmelerin gözükmemesi değil.. hazırladığım programı (ki hatta "programcık" bile diyebiliriz, basit bir uygulama ama işimi çok kolaylaştırcak bir uygulama ) meslektaşım olan başka arkadaşlarıma da göndericem. belgeyi açtığımda biraz daha program havasında çalışmasını istiyorum. yani biraz daha görsel olmasını.. mesela aşağıdaki makro gibi.. bunun başka türevleri de varmı?? yani bunu biraz daha süsleyebilirmiyim?

otomatik açılış için:

Private Sub Workbook_Open()
Mac
Ecy3 xlOn
Ecy4 xlOn
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Mkap
Ecy3 xlOff
Ecy4 xlOff
Worksheets("Giriş").Select
End Sub

ve modül1

Sub Mac()
Dim Üst As CommandBar
Mkap
Set Üst = CommandBars.Add(Name:="Menü", Position:=msoBarBottom, MenuBar:=True)
Üst.Protection = msoBarNoMove + msoBarNoCustomize
Üst.Visible = True
End Sub

Sub Mkap()
On Error Resume Next
CommandBars("Menü").Delete
End Sub

Sub Ecy3(durum)
' Excelde yaptığınız sayfanın dış kenar çizgilerine göre Gen(Genişlik) ve Yük (Yükseklik)
' değerlerini kendinize göre ayarlayın.
Const Gen = 500
Const Yük = 500
Static EskiGen
Static EskiYük
Static EskiDurum
If durum = xlOn Then
EskiGen = Application.Width
EskiYük = Application.Height
EskiDurum = Application.WindowState
Application.WindowState = xlNormal
Application.Width = Gen
Application.Height = Yük
'Ekranınızın Üstünde görünmesini istediğiniz Başlığı Buraya yazın...
Application.Caption = "*** BAŞLIK ***"
ActiveWindow.WindowState = xlMaximized
ActiveWindow.Caption = "*** 2.BAŞLIK ***"
ActiveWorkbook.Protect , False, False
ActiveSheet.Protect , False, False
ActiveWorkbook.Unprotect
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
Else
Application.Caption = Empty
If Not IsEmpty(EskiGen) Then
Application.Width = EskiGen
Application.Height = EskiYük
Application.WindowState = EskiDurum
End If
ActiveWorkbook.Unprotect
ActiveSheet.Unprotect
Application.WindowState = xlMaximized
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayWorkbookTabs = True
End If
End Sub

Sub Ecy4(durum)
Static EÜstü As New Collection
Dim Üstü
If durum = xlOn Then
For Each Üstü In Application.CommandBars
If Üstü.Type <> 1 And Üstü.Visible Then
EÜstü.Add Üstü
Üstü.Visible = False
End If
Next Üstü
Else
For Each Üstü In EÜstü
Üstü.Visible = True
Next Üstü
End If
End Sub