قفل کردن اکسل

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • taha2
    • 2017/11/12
    • 1
    #1

    پرسش قفل کردن اکسل

    باسلام به دوستان
    من یک فایل اکسل را قفل کرده ام واطلاعات وارد کرده ام وقتی که می خواهم اطلاعاتی راکه وارد کرده ام فیلتر جستجو را باز کنم وسرچ کنم ،تیک فیلتر هم قفل شده واطلاعات را به من نمی دهد باید چکار کنم که تیک فیلتر باز شود.
    لطفا راهنمایی کنید .اگر امکان دارد یک فایل تصویری به ایمیل من بفرستید ممنون میشم.
    trabymhmd405@gmail.com
    برچسب ها: هیچ‌کدام
    • saed.rasa

      • 2014/11/02
      • 1054
      #2
      سلام
      به انجمن محبوب اکسل ایران، خوش آمدید!

      از پایین سمت چپ - دگمه وسطی تنظیمات اضافی - دگمه فایل پیوست - یک فایل اکسل نمونه کوچولو همراه با نتیجه مورد انتظار قرار دهید تا دوستان محترم در اولین فرصت پاسخ مناسب را برای شما ارسال فرمایند.

      مرسی
      [FONT=arial][SIZE=3]اگر کسی به شما کمک کرد، سمت راست پایین هر موضوع تیک [COLOR=#0000cd][B]«3پاس»[/B][/COLOR] یادتان نرود لطفا
      اگر مشکل تان حل شد، حتما تیک سبز رنگ [B][COLOR=#00cc00]«حل شد»[/COLOR][/B] در پست اول را بزنید
      [/SIZE][/FONT][SIZE=3][CENTER][FONT=arial]
      [/FONT][/CENTER]
      [/SIZE][FONT=arial][SIZE=3] اگر میخواهید بهتر و دقیق تر و سریع تر به شما کمک شود، یک [COLOR=#ee82ee][B]«فایل نمونه»[/B][/COLOR] قرار دهید
      فایل نمونه: حداکثر [U][COLOR=#ff0000]50 [/COLOR][/U]کیلوبایت - کوتاه، تقریبا [U][COLOR=#ff0000]10 [/COLOR][/U]سطری - به همراه جواب یا خروجی یا نتیجه مورد انتظار[/SIZE][/FONT][CENTER][FONT=arial][COLOR=#0000ff][SIZE=3][SIZE=3][SIZE=3][SIZE=3]مسیر ارسال فایل : پایین سمت چپ - تنظیمات اضافی - فایل پیوست[/SIZE][/SIZE][/SIZE] [/SIZE][/COLOR]
      [/FONT][/CENTER]

        کامنت

        • majid_mx4

          • 2012/06/25
          • 699
          #3
          ضمن تشکر از دوستان پاسخگو و با کسب اجازه

          با فرض اینکه نام شیت شما Main و رمز شیت 123 باشد میتوانید از کد زیر استفاده نمایید.
          کلید های Alt+F11 را زده روی شیت مورد نظر کلیک کرده و کد زیر را به آن انتقال دهید.
          کد:
          Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Main")

ws.Unprotect Password:="123"
    ws.EnableAutoFilter = True
    ws.Protect userinterfaceonly:=True
ws.Protect Password:="123"

End Sub
          موفق باشید میر

            کامنت

            قبلی template بعدی
            چند لحظه..