How to Exclude Records you do not want - Advanced Filter
如何篩選出不需要的記錄 – 進階篩選
http://sites.google.com/site/exceltkk2/excel-tutorial/howtoexcluderecordsyoudonotwant-advancedfilter
謝。
個人積分：40分
文章編號：27543293
個人積分：40分
文章編號：27543913
荷塘月色 wrote:
您好：拜讀您的大作，...(恕刪)
要用 vba
先按 alt + f11 然後在 thisworkbook 上貼上以下程式。
儲存後再重新打開活頁簿。
Private Sub Workbook_Open()
Application.CommandBars("Worksheet menu bar"). _
Controls("View").Controls("&Header and Footer...").Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet menu bar"). _
Controls("View").Controls("&Header and Footer...").Enabled = True
End Sub
個人積分：40分
文章編號：27543971
荷塘月色 wrote:
您好：拜讀您的大作，...(恕刪)
按alt + f11 ，在thisworkbook 裡，試試插入以下程式
儲存後再重開。
Private Sub Workbook_Open()
Application.CommandBars("Worksheet menu bar"). _
Controls("View").Controls("&Header and Footer...").Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet menu bar"). _
Controls("View").Controls("&Header and Footer...").Enabled = True
End Sub
個人積分：17分
文章編號：27558757
stephen_tkk wrote:
按alt + f11 ，在thisworkbook 裡，試試插入以下程式
儲存後再重開。
Private Sub Workbook_Open()
Application.CommandBars("Worksheet menu bar"). _
Controls("View").Controls("&Header and Footer...").Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet menu bar"). _
Controls("View").Controls("&Header and Footer...").Enabled = True
End Sub
謝謝指點，基本上可用，但是因為我使用的是Office20003中文版
所以程序須作修改，野人獻曝如下：
Private Sub Workbook_Open()
Application.CommandBars("Worksheet Menu Bar"). _
Controls("檢視(&V)").Controls("頁首及頁尾(&H)...").Visible = True
End Sub
我的檔案之中有本就有使用VBA，除了不想讓USER動到版面之外，
頁首頁尾當中也有東西，使用上個方法可以避免USER進入頁首頁尾，
但是當按了預覽列印之後，出現的預覽列印視窗，顯示的功能表當中，
會出現一個"設定"按鍵，按下了"設定"按鍵，會出現"版面設定"的視窗，
還是會有"頁首及頁尾"這個選項，所以呢...我還是得繼續努力囉
再次謝謝...
當我回首時，望一望過去，竟忘來時路
個人積分：0分
文章編號：27570222
個人積分：40分
文章編號：27571936
Reverse of Words in a cell - VBA Function StrReverse
把儲存格的文字倒轉 – VBA 函數 StrReverse
http://sites.google.com/site/exceltkk2/excel-tutorial/reverseofwordsinacell-vbafunctionstrreverse
謝。
個人積分：40分
文章編號：27572394
荷塘月色 wrote:
謝謝指點，基本上可用...(恕刪)
這裡有另一個方法解決，就是在以下這個程式，
> Private Sub Workbook_BeforePrint(Cancel As Boolean)
> With ActiveSheet.PageSetup
> .LeftHeader = "header"
> .CenterHeader = ""
> .RightHeader = ""
> .LeftFooter = "footer"
> .CenterFooter = ""
> .RightFooter = ""
> End With
> End Sub
USER 需然可以在 HEADER AND FOOTER 改東西，
但當 打印時就會變會預設的那樣。
看看管不管用，謝。
個人積分：40分
文章編號：27588093
Weekly Summary 13 - From Apr 25_11 To Apr 29_11
每週總結 13 – 由一一年四月二十五日至一一年四月二十九日
http://sites.google.com/site/exceltkk2/excel-tutorial/weeklysummary13-fromapr2511toapr2911
謝。
個人積分：40分
文章編號：27604666
Exercise - From Apr 25_11 To Apr 29_11
練習-由一一年四月二十五日至一一年四月二十九日
http://sites.google.com/site/exceltkk2/excel-tutorial/exercise-fromapr2511toapr2911
謝。
個人積分：17分
文章編號：27625602
關閉廣告