GBKEE

回復 10# owen06

1. Option Explicit
   
2. Sub Ex()  ''如工作表沒有設定保護: 執行這程式
   
3.         ActiveSheet.ScrollArea = ""
   
4. End Sub

複製代碼

或如圖

下載 (26.47 KB)

2013-7-16 09:25

onegirl0204

回復 10# owen06

不管點欄或列都會出現隱藏與取消隱藏的功能，可惜點選取消隱藏卻仍然無法顯示當初被隱藏的列資料呀！
至於您提的保護功能，老實說我不會用也未曾使用過，所以工具－保護底下當然找不到取消保護的功能囉！

onegirl0204

回復 11# GBKEE


剛剛進到巨集的Visual Basic編輯器裡查看，ScrollArea原本就是空白沒有任何資料呀！

我也不好意思再麻煩您費心了，因為真的很玄啦！我已經放棄不抱任何希望了！

無論如何，非常感謝您鍥而不捨地努力幫我尋求解決方法！

GBKEE

回復 12# onegirl0204
何不上傳這檔案看看

onegirl0204

回復 14# GBKEE


不好意思～此檔屬於機密性較高，不便上傳啦！

leoskie

有一個設定列寬的地方,你設為自動調整就可以了.

你可以把檔案內容清除,另存新檔 再上傳給看看
這樣就不會有問題了吧

owen06

原po最不能讓人看到的就是隱藏的1~5列，所以就算其他地方刪掉，那五列的內容還在，他就不能上給別人看@@

handsometrowa

回復 1# onegirl0204


    你當初隱藏的時後，是用工作表上面的操作

還是使用了VBA 裡面的影藏，你要是使用了VBA的隱藏

我記得要到裡面去做取消，外面你做再多動作也沒有用，所以這個檔案當初是你自己隱藏的???

GBKEE

回復 18# owen06
可如此清除內容

1. Sub Ex()
   
2.    With Sheets("隱藏列的工作表")
   
3.         .Rows("1:5") = ""
   
4.         MsgBox IIf(Application.CountA(.Rows("1:6")) = 0, "清除完畢", "還有資料")
   
5.   End With
   
6. End Sub

複製代碼

georgema

可試試看在名稱方塊中輸入"1:5"後再按Enter鍵，在取消隱藏列。