Skip to content
  • Categories
  • Recent
  • Tags
  • Popular
  • World
  • Users
  • Groups
Skins
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • Default (No Skin)
  • No Skin
Collapse
Code Project
CODE PROJECT For Those Who Code
  • Home
  • Articles
  • FAQ
Community
  1. Home
  2. General Programming
  3. Visual Basic
  4. Access Permission

Access Permission

Scheduled Pinned Locked Moved Visual Basic
helpquestion
3 Posts 3 Posters 0 Views 1 Watching
  • Oldest to Newest
  • Newest to Oldest
  • Most Votes
Reply
  • Reply as topic
Log in to reply
This topic has been deleted. Only users with topic management privileges can see it.
  • M Offline
    M Offline
    monika_vasvani
    wrote on last edited by
    #1

    Hi All I have one application in Visual Basic.I have created one folder at runtime.I want to give permission to that folder that only administrator can access this folder,nobody can. Is it possible in visual basic? Second problem is:I have created runtime excel files.It works perfectly. But problem is i want set allignment property through coding in excel file. My code is: Set AppXls = CreateObject("Excel.Application") Set ObjWb = AppXls.Workbooks.Add Set ObjWs = ObjWb.Worksheets.Add ObjWs.Range("B1").Value = "SISTER NIVEDITA SCHOOL ON WHEELS" ObjWs.Range("B2").Value = "SUPPORTED BY" 'ObjWs.Range("B2").Font.Bold = True ObjWs.Range("B3").Value = "SHARE AND CARE FOUNDATION-U.S.A" ObjWs.Range("B4").Value = "MEDICAL REPORT" ObjWs.Range("C4").Value = Label3.Caption ObjWs.Range("D4").Value = txt_date.Text ObjWs.Range("B7") = Text1(0).Text ObjWs.Range("B8") = cmb_address.Text ObjWs.Range("B9") = Text1(2).Text what i do? Pls help me. Thanks monika

    K L 2 Replies Last reply
    0
    • M monika_vasvani

      Hi All I have one application in Visual Basic.I have created one folder at runtime.I want to give permission to that folder that only administrator can access this folder,nobody can. Is it possible in visual basic? Second problem is:I have created runtime excel files.It works perfectly. But problem is i want set allignment property through coding in excel file. My code is: Set AppXls = CreateObject("Excel.Application") Set ObjWb = AppXls.Workbooks.Add Set ObjWs = ObjWb.Worksheets.Add ObjWs.Range("B1").Value = "SISTER NIVEDITA SCHOOL ON WHEELS" ObjWs.Range("B2").Value = "SUPPORTED BY" 'ObjWs.Range("B2").Font.Bold = True ObjWs.Range("B3").Value = "SHARE AND CARE FOUNDATION-U.S.A" ObjWs.Range("B4").Value = "MEDICAL REPORT" ObjWs.Range("C4").Value = Label3.Caption ObjWs.Range("D4").Value = txt_date.Text ObjWs.Range("B7") = Text1(0).Text ObjWs.Range("B8") = cmb_address.Text ObjWs.Range("B9") = Text1(2).Text what i do? Pls help me. Thanks monika

      K Offline
      K Offline
      Khatri Mitesh
      wrote on last edited by
      #2

      Hiii Monika for the alignment in excel use the following

      objws.Columns(1).HorizontalAlignment = Microsoft.Office.Interop.Excel.XlHAlign.xlHAlignCenter

      May this solved your problem Thanx ~Khatri mitesh khatrimitesh@hotmail.com

      1 Reply Last reply
      0
      • M monika_vasvani

        Hi All I have one application in Visual Basic.I have created one folder at runtime.I want to give permission to that folder that only administrator can access this folder,nobody can. Is it possible in visual basic? Second problem is:I have created runtime excel files.It works perfectly. But problem is i want set allignment property through coding in excel file. My code is: Set AppXls = CreateObject("Excel.Application") Set ObjWb = AppXls.Workbooks.Add Set ObjWs = ObjWb.Worksheets.Add ObjWs.Range("B1").Value = "SISTER NIVEDITA SCHOOL ON WHEELS" ObjWs.Range("B2").Value = "SUPPORTED BY" 'ObjWs.Range("B2").Font.Bold = True ObjWs.Range("B3").Value = "SHARE AND CARE FOUNDATION-U.S.A" ObjWs.Range("B4").Value = "MEDICAL REPORT" ObjWs.Range("C4").Value = Label3.Caption ObjWs.Range("D4").Value = txt_date.Text ObjWs.Range("B7") = Text1(0).Text ObjWs.Range("B8") = cmb_address.Text ObjWs.Range("B9") = Text1(2).Text what i do? Pls help me. Thanks monika

        L Offline
        L Offline
        Lost User
        wrote on last edited by
        #3

        How to set folder permissions with VBScript[^]

        1 Reply Last reply
        0
        Reply
        • Reply as topic
        Log in to reply
        • Oldest to Newest
        • Newest to Oldest
        • Most Votes


        • Login

        • Don't have an account? Register

        • Login or register to search.
        • First post
          Last post
        0
        • Categories
        • Recent
        • Tags
        • Popular
        • World
        • Users
        • Groups